home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Diamond Collection
/
The Diamond Collection (Software Vault)(Digital Impact).ISO
/
cdr05
/
att33all.zip
/
SETTIME.FRM
< prev
next >
Wrap
Text File
|
1995-01-31
|
23KB
|
875 lines
VERSION 2.00
Begin Form SetTimeForm
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "Set Time"
ClientHeight = 1305
ClientLeft = 5100
ClientTop = 3405
ClientWidth = 3645
ClipControls = 0 'False
ControlBox = 0 'False
Height = 1740
Left = 5025
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1305
ScaleWidth = 3645
Top = 3045
Width = 3795
Begin CommandButton Command1
Cancel = -1 'True
Caption = "Check Now"
Height = 360
Index = 2
Left = 2268
TabIndex = 23
TabStop = 0 'False
Top = 2640
Width = 1155
End
Begin TextBox Text2
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 192
Left = 240
MultiLine = -1 'True
TabIndex = 27
TabStop = 0 'False
Text = "300"
Top = 2760
Width = 350
End
Begin SSFrame Frame3D1
Caption = "Time Server Address"
ForeColor = &H00000000&
Height = 624
Index = 2
Left = 240
TabIndex = 22
Top = 1800
Width = 3132
Begin TextBox Text1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 252
Left = 120
TabIndex = 25
TabStop = 0 'False
Text = "panix.com"
Top = 300
Width = 2844
End
End
Begin SSCheck Check3D1
Caption = "Use Time Server"
Height = 312
Left = 240
TabIndex = 21
TabStop = 0 'False
Top = 1440
Width = 1692
End
Begin SSCommand Command3D1
Height = 465
Left = 165
Picture = SETTIME.FRX:0000
TabIndex = 18
Top = 720
Width = 540
End
Begin CommandButton Command1
Caption = "Cancel"
Height = 360
Index = 1
Left = 2265
TabIndex = 20
Top = 765
Width = 1155
End
Begin CommandButton Command1
Caption = "Set"
Default = -1 'True
Height = 360
Index = 0
Left = 885
TabIndex = 19
Top = 765
Width = 1155
End
Begin PictureBox SpinButton
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Height = 360
Index = 1
Left = 3255
ScaleHeight = 330
ScaleWidth = 135
TabIndex = 17
TabStop = 0 'False
Top = 240
Width = 165
End
Begin SSFrame Frame3D1
ForeColor = &H00000000&
Height = 444
Index = 1
Left = 1830
TabIndex = 11
Top = 156
Width = 1395
Begin TextBox tYear
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 225
Left = 780
MaxLength = 4
TabIndex = 14
Tag = "y"
Text = "1955"
Top = 150
Width = 480
End
Begin TextBox tDay
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 225
Left = 450
MaxLength = 2
TabIndex = 13
Tag = "d"
Text = "17"
Top = 150
Width = 240
End
Begin TextBox tMonth
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 225
Left = 120
MaxLength = 2
TabIndex = 12
Tag = "n"
Text = "09"
Top = 150
Width = 240
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "/"
Height = 225
Index = 3
Left = 690
TabIndex = 16
Top = 150
Width = 105
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "/"
Height = 225
Index = 2
Left = 345
TabIndex = 15
Top = 150
Width = 105
End
End
Begin PictureBox SpinButton
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Height = 360
Index = 0
Left = 1590
ScaleHeight = 330
ScaleWidth = 135
TabIndex = 7
TabStop = 0 'False
Top = 240
Width = 165
End
Begin PictureBox N
AutoSize = -1 'True
Height = 360
Left = 2736
Picture = SETTIME.FRX:016A
ScaleHeight = 330
ScaleWidth = 135
TabIndex = 6
TabStop = 0 'False
Top = 3432
Visible = 0 'False
Width = 165
End
Begin PictureBox U
AutoSize = -1 'True
Height = 360
Left = 2940
Picture = SETTIME.FRX:0294
ScaleHeight = 330
ScaleWidth = 135
TabIndex = 5
TabStop = 0 'False
Top = 3420
Visible = 0 'False
Width = 165
End
Begin PictureBox D
AutoSize = -1 'True
Height = 360
Left = 3168
Picture = SETTIME.FRX:03BE
ScaleHeight = 330
ScaleWidth = 135
TabIndex = 0
TabStop = 0 'False
Top = 3420
Visible = 0 'False
Width = 165
End
Begin SSFrame Frame3D1
ForeColor = &H00000000&
Height = 444
Index = 0
Left = 168
TabIndex = 8
Top = 156
Width = 1392
Begin TextBox tHour
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 225
Left = 120
MaxLength = 2
MultiLine = -1 'True
TabIndex = 1
Tag = "h"
Text = "12"
Top = 150
Width = 240
End
Begin TextBox tMinute
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 225
Left = 456
MaxLength = 2
TabIndex = 2
Tag = "m"
Text = "00"
Top = 150
Width = 240
End
Begin TextBox tAMPM
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 225
Left = 1020
TabIndex = 4
Tag = "a"
Text = "am"
Top = 150
Width = 285
End
Begin TextBox tSecond
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 225
Left = 780
MaxLength = 2
TabIndex = 3
Tag = "s"
Text = "00"
Top = 150
Width = 240
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = ":"
Height = 225
Index = 0
Left = 345
TabIndex = 10
Top = 150
Width = 105
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = ":"
Height = 225
Index = 1
Left = 675
TabIndex = 9
Top = 150
Width = 105
End
End
Begin Label Label2
BackStyle = 0 'Transparent
Caption = "minutes."
ForeColor = &H00000000&
Height = 252
Index = 1
Left = 600
TabIndex = 24
Top = 2760
Width = 792
End
Begin Label Label2
BackStyle = 0 'Transparent
Caption = "Check every"
ForeColor = &H00000000&
Height = 252
Index = 0
Left = 240
TabIndex = 26
Top = 2580
Width = 1128
End
Begin Line Line1
BorderColor = &H00FFFFFF&
Index = 1
X1 = 252
X2 = 3372
Y1 = 1332
Y2 = 1332
End
Begin Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 240
X2 = 3360
Y1 = 1320
Y2 = 1320
End
End
Option Explicit
DefInt A-Z
Dim LastY As Single
Dim Active As String
Dim LastDirection As String
Dim tVal As Integer
' Jeffrey M. Richter's Spin Button Control from Windows 3: A Developer's Guide
' Adapted for Visual Basic by Costas Kitsos with Mr. Richter's kind permission
' Windows API functions used by the Spin Button Control
Declare Function GetTickCount Lib "User" () As Long
Declare Function GetAsyncKeyState Lib "User" (ByVal vKey As Integer) As Integer
Sub Command1_Click (Index As Integer)
If Index = 0 Then
Time = tHour.Text + ":" + tMinute.Text + ":" + tSecond.Text + UCase$(tAMPM.Text)
Date = tMonth.Text + "/" + tDay.Text + "/" + tYear.Text
LastTime = 0
LastHour = Val(Format$(Time, "hh"))
LastQuarter = Val(Format$(Time, "nn")) \ 15
Unload SetTimeForm
End If
If Index = 1 Then
LastTime = 0
Unload SetTimeForm
End If
End Sub
Sub Command3D1_Click ()
AtomicTimeWasSet = False
Atomic.Show 1
Unload Atomic
If AtomicTimeWasSet Then
Unload SetTimeForm
End If
End Sub
Sub FlipFlopTAMPM ()
If tAMPM.Text = "am" Then
tAMPM.Text = "pm"
Else
tAMPM.Text = "am"
End If
End Sub
Sub Form_GotFocus ()
tHour.SetFocus
DoEvents
End Sub
Sub Form_Load ()
SetTimeForm.Left = Settings.Left + (Settings.Width / 2) - (SetTimeForm.Width / 2)
SetTimeForm.Top = Settings.Top + (Settings.Height / 2) - (SetTimeForm.Height / 2)
Dim Instant As Double
Dim InitialHeight As Integer
InitialHeight = SpinButton(0).Height
SpinButton(0).Picture = N.Picture 'Set to the Normal Spin Button
SpinButton(0).Top = SpinButton(0).Top + (InitialHeight - SpinButton(0).Height) / 2
SpinButton(1).Picture = N.Picture 'Set to the Normal Spin Button
SpinButton(1).Top = SpinButton(1).Top + (InitialHeight - SpinButton(1).Height) / 2
Instant = Now
If Hour(Instant) = 0 Then
tHour.Text = "12"
tAMPM.Text = "am"
End If
If Hour(Instant) >= 1 And Hour(Instant) <= 11 Then
tHour.Text = Format$(Hour(Instant))
tAMPM.Text = "am"
End If
If Hour(Instant) = 12 Then
tHour.Text = Format$(Hour(Instant))
tAMPM.Text = "pm"
End If
If Hour(Instant) >= 13 And Hour(Instant) <= 23 Then
tHour.Text = Format$(Hour(Instant) - 12)
tAMPM.Text = "pm"
End If
tMinute.Text = Format$(Minute(Instant), "00")
tSecond.Text = Format$(Second(Instant), "00")
tMonth.Text = Format$(Month(Instant), "00")
tDay.Text = Format$(Day(Instant), "00")
tYear.Text = Format$(Year(Instant), "0000")
'SetTimeFOrm.Show
'DoEvents
End Sub
Sub MoveDown (c As Control)
Dim CurVal As Integer
CurVal% = Val(c.Text)
Select Case c.Tag
Case "h"
If CurVal% = 12 Then
FlipFlopTAMPM
End If
If CurVal% = 1 Then
c.Text = "12"
Else
c.Text = Val(c.Text) - 1
End If
Case "m"
If CurVal% = 0 Then
c.Text = "59"
Else
c.Text = Format$(Val(c.Text) - 1, "00")
End If
Case "s"
If CurVal% = 0 Then
c.Text = "59"
Else
c.Text = Format$(Val(c.Text) - 1, "00")
End If
Case "a"
FlipFlopTAMPM
Case "n"
If CurVal% = 1 Then
c.Text = "12"
Else
c.Text = Format$(Val(c.Text) - 1, "00")
End If
Case "d"
If CurVal% = 1 Then
c.Text = "31"
Else
c.Text = Format$(Val(c.Text) - 1, "00")
End If
Case "y"
If CurVal% = 1 Then
c.Text = "2050"
Else
c.Text = Format$(Val(c.Text) - 1, "0000")
End If
End Select
'c.Text = Val(c.Text) - 1
End Sub
Sub MoveUp (c As Control)
Dim CurVal As Integer
CurVal% = Val(c.Text)
Select Case c.Tag
Case "h"
If CurVal% = 11 Then
FlipFlopTAMPM
End If
If CurVal% = 12 Then
c.Text = "1"
Else
c.Text = Val(c.Text) + 1
End If
Case "m"
If CurVal% = 59 Then
c.Text = "00"
Else
c.Text = Format$(Val(c.Text) + 1, "00")
End If
Case "s"
If CurVal% = 59 Then
c.Text = "00"
Else
c.Text = Format$(Val(c.Text) + 1, "00")
End If
Case "a"
FlipFlopTAMPM
Case "n"
If CurVal% = 12 Then
c.Text = "01"
Else
c.Text = Format$(Val(c.Text) + 1, "00")
End If
Case "d"
If CurVal% = 31 Then
c.Text = "01"
Else
c.Text = Format$(Val(c.Text) + 1, "00")
End If
Case "y"
If CurVal% = 2050 Then
c.Text = "1980"
Else
c.Text = Format$(Val(c.Text) + 1, "0000")
End If
End Select
End Sub
Sub SpinButton_DblClick (Index As Integer)
If (Index = 1) And (Active$ <> "n") And (Active$ <> "d") And (Active$ <> "y") Then
tMonth.SetFocus
End If
If (Index = 0) And (Active$ <> "h") And (Active$ <> "m") And (Active$ <> "s") And (Active$ <> "a") Then
tHour.SetFocus
End If
If LastDirection$ = "u" Then
Select Case Active$
Case "n"
Call MoveUp(tMonth)
Case "d"
Call MoveUp(tDay)
Case "y"
Call MoveUp(tYear)
Case "h"
Call MoveUp(tHour)
Case "m"
Call MoveUp(tMinute)
Case "s"
Call MoveUp(tSecond)
Case "a"
Call MoveUp(tAMPM)
End Select
Else
Select Case Active$
Case "n"
Call MoveDown(tMonth)
Case "d"
Call MoveDown(tDay)
Case "y"
Call MoveDown(tYear)
Case "h"
Call MoveDown(tHour)
Case "m"
Call MoveDown(tMinute)
Case "s"
Call MoveDown(tSecond)
Case "a"
Call MoveDown(tAMPM)
End Select
End If
SpinButton(Index).SetFocus
End Sub
Sub SpinButton_GotFocus (Index As Integer)
If (Index = 1) And (Active$ <> "n") And (Active$ <> "d") And (Active$ <> "y") Then
tMonth.SetFocus
Exit Sub
End If
If (Index = 0) And (Active$ <> "h") And (Active$ <> "m") And (Active$ <> "s") And (Active$ <> "a") Then
tHour.SetFocus
Exit Sub
End If
Select Case Active$
Case "n"
tMonth.SetFocus
Case "d"
tDay.SetFocus
Case "y"
tYear.SetFocus
Case "h"
tHour.SetFocus
Case "m"
tMinute.SetFocus
Case "s"
tSecond.SetFocus
Case "a"
tAMPM.SetFocus
End Select
End Sub
Sub SpinButton_MouseDown (Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
Const VK_LBUTTON = &H1
Const TIME_DELAY = 180 ' Time delay between Spin Button Events
Dim dwEvent As Long
LastY = Y
' Make sure that the Spin Button Event occurs at least once
dwEvent = GetTickCount() - TIME_DELAY
SpinIt:
' Do this while the user holds down the left mouse button
Do While (GetAsyncKeyState(VK_LBUTTON) And &H8000) = -32768
' Break out of the loop if we haven't waited long enough
If dwEvent + TIME_DELAY > GetTickCount() Then GoTo Break:
' If the user wants to increment the counter
If Y > (SpinButton(Index).Height \ 2) Then
SpinButton(Index).Picture = d.Picture ' Set Picture to Up
If Index = 1 Then
Select Case Active$
Case "n"
Call MoveDown(tMonth)
Case "d"
Call MoveDown(tDay)
Case "y"
Call MoveDown(tYear)
End Select
End If
If Index = 0 Then
Select Case Active$
Case "h"
Call MoveDown(tHour)
Case "s"
Call MoveDown(tSecond)
Case "m"
Call MoveDown(tMinute)
Case "a"
Call MoveDown(tAMPM)
End Select
End If
LastDirection$ = "d"
End If
' If the user wants to decrement the counter
If Y < (SpinButton(Index).Height \ 2) Then
SpinButton(Index).Picture = u.Picture ' Set Picture to Down
If Index = 1 Then
Select Case Active$
Case "n"
Call MoveUp(tMonth)
Case "d"
Call MoveUp(tDay)
Case "y"
Call MoveUp(tYear)
End Select
End If
If Index = 0 Then
Select Case Active$
Case "h"
Call MoveUp(tHour)
Case "s"
Call MoveUp(tSecond)
Case "m"
Call MoveUp(tMinute)
Case "a"
Call MoveUp(tAMPM)
End Select
End If
LastDirection$ = "u"
End If
' Save the last time the Spin Button was active
dwEvent = GetTickCount()
Loop
' Set the Picture to Normal
SpinButton(Index).Picture = N.Picture
If Index = 1 Then
Select Case Active$
Case "n"
tMonth.SetFocus
Case "d"
tDay.SetFocus
Case "y"
tYear.SetFocus
End Select
End If
If Index = 0 Then
Select Case Active$
Case "h"
tHour.SetFocus
Case "m"
tMinute.SetFocus
Case "s"
tSecond.SetFocus
Case "a"
tAMPM.SetFocus
End Select
End If
DoEvents
Exit Sub
Break:
GoTo SpinIt:
End Sub
Sub tAMPM_GotFocus ()
tAMPM.SelStart = 0
tAMPM.SelLength = 2
Active$ = "a"
End Sub
Sub tAMPM_KeyPress (KeyAscii As Integer)
If KeyAscii >= 32 Then
FlipFlopTAMPM
KeyAscii = 0
tAMPM.SelStart = 0
tAMPM.SelLength = 2
End If
End Sub
Sub tAMPM_LostFocus ()
If tAMPM.Text <> "am" And tAMPM.Text <> "pm" Then
tAMPM.Text = "am"
End If
End Sub
Sub tDay_GotFocus ()
tDay.SelStart = 0
tDay.SelLength = 2
Active$ = "d"
End Sub
Sub tDay_KeyPress (KeyAscii As Integer)
If KeyAscii >= 32 Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End If
End Sub
Sub tDay_LostFocus ()
tVal = Val(tDay.Text)
If tVal < 1 Or tVal > 31 Then
tVal = 1
End If
tDay.Text = Format$(tVal, "00")
End Sub
Sub tHour_GotFocus ()
tHour.SelStart = 0
tHour.SelLength = 2
Active$ = "h"
End Sub
Sub tHour_KeyPress (KeyAscii As Integer)
If KeyAscii >= 32 Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End If
End Sub
Sub tHour_LostFocus ()
tVal = Val(tHour.Text)
If tVal < 1 Or tVal > 12 Then
tVal = 12
End If
tHour.Text = Format$(tVal, "0")
End Sub
Sub tMinute_GotFocus ()
tMinute.SelStart = 0
tMinute.SelLength = 2
Active$ = "m"
End Sub
Sub tMinute_KeyPress (KeyAscii As Integer)
If KeyAscii >= 32 Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End If
End Sub
Sub tMinute_LostFocus ()
tVal = Val(tMinute.Text)
If tVal <= 0 Or tVal > 59 Then
tVal = 0
End If
tMinute.Text = Format$(tVal, "00")
End Sub
Sub tMonth_GotFocus ()
tMonth.SelStart = 0
tMonth.SelLength = 2
Active$ = "n"
End Sub
Sub tMonth_KeyPress (KeyAscii As Integer)
If KeyAscii >= 32 Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End If
End Sub
Sub tMonth_LostFocus ()
tVal = Val(tMonth.Text)
If tVal < 1 Or tVal > 12 Then
tVal = 12
End If
tMonth.Text = Format$(tVal, "00")
End Sub
Sub tSecond_GotFocus ()
tSecond.SelStart = 0
tSecond.SelLength = 2
Active$ = "s"
End Sub
Sub tSecond_KeyPress (KeyAscii As Integer)
If KeyAscii >= 32 Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End If
End Sub
Sub tSecond_LostFocus ()
tVal = Val(tSecond.Text)
If tVal <= 0 Or tVal > 59 Then
tVal = 0
End If
tSecond.Text = Format$(tVal, "00")
End Sub
Sub tYear_GotFocus ()
tYear.SelStart = 0
tYear.SelLength = 4
Active$ = "y"
End Sub
Sub tYear_KeyPress (KeyAscii As Integer)
If KeyAscii >= 32 Then
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
End If
End Sub
Sub tYear_LostFocus ()
tVal = Val(tYear.Text)
If tVal < 100 Then tVal = tVal + 1900
If tVal < 1980 Or tVal > 2050 Then
tVal = 1980
End If
tYear.Text = Format$(tVal, "0000")
End Sub
